home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClassAdministrator1.3.cpt / Classroom Administrator / card_4459.txt < prev    next >
Text File  |  1988-04-18  |  6KB  |  273 lines
  1. -- card: 4459 from stack: in
  2. -- bmap block id: 5770
  3. -- flags: 0000
  4. -- background id: 8177
  5. -- name: Seating chart
  6. ----- HyperTalk script -----
  7. On OpenCard
  8.   global teacher, report
  9.   Put the long date into bkgnd field "Date"
  10.   enablemenu teacher, 0, true
  11.   repeat with x = 1 to 3
  12.     enablemenu teacher, x, true
  13.   end repeat
  14.   enablemenu report, 0, true
  15.   enablemenu report, 6, false
  16. end OpenCard
  17.  
  18. on doMenu which
  19.   if which is "Add Assignment" then
  20.     send mouseUp to bkgnd button which
  21.     exit doMenu
  22.   else if which is "Add a student" then
  23.     send mouseUp to bkgnd button which
  24.     exit doMenu
  25.   else if which is "Delete a student" then
  26.     send mouseUp to bkgnd button which
  27.     exit doMenu
  28.   else if which is "Attendance" then
  29.     ask "Which student?"
  30.     put char 1 of word 1 of it & word 2 of it into studentname
  31.     put studentname & "Attendance" into studentname
  32.     go to card studentname
  33.   else if which is "Student Profile" then
  34.     ask "Which student?"
  35.     put char 1 of word 1 of it & word 2 of it into studentname
  36.     put studentname & "Profile" into studentname
  37.     go to card studentname
  38.   else if which is "Grades" then
  39.     ask "Which student?"
  40.     put char 1 of word 1 of it & word 2 of it into studentname
  41.     put studentname & "Grades" into studentname
  42.     go to card studentname
  43.   else
  44.     pass domenu
  45.   end if
  46. end doMenu
  47.  
  48.  
  49. on closeCard
  50.   repeat with x = 1 to 6
  51.     enablemenu report, x, true
  52.   end repeat
  53. end closeCard
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60. -- part 33 (button)
  61. -- low flags: 00
  62. -- high flags: 2000
  63. -- rect: left=52 top=0 right=25 bottom=82
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 8538 / 8538
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Grades
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   ask "Which student's grades do you wish to see?"
  75.   put char 1 of word 1 of it into temp
  76.   put temp & word 2 of it & "Grades" into cardname
  77.   go to card cardname
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 34 (button)
  83. -- low flags: 00
  84. -- high flags: 2000
  85. -- rect: left=84 top=0 right=19 bottom=109
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 15972 / 15972
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Attendance
  94. ----- HyperTalk script -----
  95. On MouseUp
  96.   ask "Which student?"
  97.   put char 1 of word 1 of it & word 2 of it into studentname
  98.   put studentname & "Attendance" into studentname
  99.   go to card studentname
  100. end MouseUp
  101.  
  102.  
  103. -- part 35 (button)
  104. -- low flags: 80
  105. -- high flags: 8004
  106. -- rect: left=108 top=0 right=22 bottom=208
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: Add a student
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   global className,Period
  118.   Ask "What is the student's name?" with "OK" or "Cancel"
  119.   if it is "Cancel" then exit MouseUp
  120.   put it into StudentName
  121.   put char 1 of word 1 of it & word 2 of it into temp
  122.   set lockscreen to true
  123.   push this card
  124.   go to card "GradesTemplate"
  125.   doMenu "Copy Card"
  126.   pop card
  127.   doMenu "Paste Card"
  128.   put className into card field "Class"
  129.   put period into card field "Period"
  130.   put StudentName into field "Name"
  131.   set name of this card to temp & "Grades"
  132.  
  133.   push this card
  134.   go to card "AttendanceTemplate"
  135.   doMenu "Copy Card"
  136.   pop card
  137.   doMenu "Paste Card"
  138.   put className into card field "Class"
  139.   put period into card field "Period"
  140.   put StudentName into card field "Name"
  141.   set name of this card to temp & "Attendance"
  142.  
  143.   push this card
  144.   go to card "ProfileTemplate"
  145.   doMenu "Copy Card"
  146.   pop card
  147.   doMenu "Paste Card"
  148.   put StudentName into field "Name"
  149.   set name of this card to temp & "Profile"
  150.   go to card "seatingchart"
  151.   set lockscreen to false
  152.   answer "Please enter name into seating chart"
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part contents for background part 40
  158. ----- text -----
  159. Monday, April 18, 1988
  160.  
  161. -- part contents for background part 58
  162. ----- text -----
  163. When you are finished entering the names of your students in the seating chart, click on the "done" button.  Feel free to move the tardy, absent, and edit buttons if you feel it is necessary.
  164.  
  165. -- part contents for background part 2
  166. ----- text -----
  167. Larry
  168. Cooperman
  169.  
  170. -- part contents for background part 3
  171. ----- text -----
  172. John
  173. Jones
  174.  
  175. -- part contents for background part 4
  176. ----- text -----
  177. Lawrence
  178. Sylvester
  179.  
  180. -- part contents for background part 5
  181. ----- text -----
  182. Mary
  183. Friedlich
  184.  
  185. -- part contents for background part 8
  186. ----- text -----
  187. Shere
  188. Simpton
  189.  
  190. -- part contents for background part 47
  191. ----- text -----
  192. 1
  193.  
  194. -- part contents for background part 9
  195. ----- text -----
  196. Hamilton
  197. Jones
  198.  
  199. -- part contents for background part 10
  200. ----- text -----
  201. Lila
  202. Strong
  203.  
  204. -- part contents for background part 11
  205. ----- text -----
  206. Curtis
  207. Brandon
  208.  
  209. -- part contents for background part 14
  210. ----- text -----
  211. Dario
  212. Fo
  213.  
  214. Fo
  215.  
  216. -- part contents for background part 15
  217. ----- text -----
  218. Who
  219. SonFirst
  220.  
  221. -- part contents for background part 16
  222. ----- text -----
  223. This
  224. Life
  225.  
  226. -- part contents for background part 17
  227. ----- text -----
  228. Work
  229. Aday
  230.  
  231. -- part contents for background part 20
  232. ----- text -----
  233. Live
  234. inStyle
  235.  
  236. -- part contents for background part 21
  237. ----- text -----
  238. The
  239. World
  240.  
  241. -- part contents for background part 22
  242. ----- text -----
  243. Life
  244. Imprisonment
  245.  
  246. -- part contents for background part 24
  247. ----- text -----
  248. Help
  249. Iscoming
  250.  
  251. -- part contents for background part 27
  252. ----- text -----
  253. Why
  254. wait
  255.  
  256. -- part contents for background part 28
  257. ----- text -----
  258. Why
  259. Nor
  260.  
  261. -- part contents for background part 29
  262. ----- text -----
  263. The
  264. truth
  265.  
  266. -- part contents for background part 30
  267. ----- text -----
  268. What
  269. Shappening
  270.  
  271. -- part contents for background part 48
  272. ----- text -----
  273. English